home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
rbbs_mpl.zip
/
ALIAS.STB
< prev
next >
Wrap
Text File
|
1992-06-28
|
2KB
|
47 lines
' $linesize:132
' $title: 'Alias stub for Maple street version of RBBS'
'
'
' This Alias STUB file removes ALIAS support from Maple version of RBBS
'
' $SUBTITLE: 'AliasChk - Checks whether ALIAS exists'
' $PAGE
'
' SUBROUTINE NAME -- AliasChk
'
' INPUT PARAMETERS -- PARAMETER MEANING
' WhoFind$ ALIAS to find
'
' OUTPUT PARAMETERS -- WhoFound Whether ALIAS found
' UserNumFound Record # of User
'
' SUBROUTINE PURPOSE -- Validate that ALIAS exists. Get User Record
'
2257 SUB AliasChk (WhoFind$,WhoFound,UserNumFound) STATIC 'Dgs-ALias
END SUB '
59750' $SUBTITLE: 'AliasDgs - Subroutine to Create/Update Alias Info file'
' $PAGE
'
' SUBROUTINE NAME -- DgsAlias
'
' INPUT PARAMETERS -- PARAMETER MEANING
' ZConfName$ CONFERENCE NAME
' ZOrigUserNameDgs$ USERS - LOG ON NAME
' DgsAlias$ USERS - ALIAS NAME
' DgsStl$ NULL FIRST TIME IN
' 'STILL' IF ALIAS EXISTS
' OR REAL NAME
' DgsFileName$ CONFERENCE ALIAS FILE
'
' OUTPUT PARAMETERS -- ZConfName$ ZOrigUserNameDgs$ DgsAlias$ DgsStl$
' DgsFileName$
'
' SUBROUTINE PURPOSE -- TO Read ConfA.DEF and Get Users ALIAS or
' Create One
'
SUB AliasDgs (ZConfName$,ZOrigUserNameDgs$,DgsAlias$,DgsStl$,DgsFileName$) STATIC
ConfADefFlag = 0
DgsAlias$ = "NO CONFA.DEF"
END SUB